home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 7
/
Tiger_Disk_007_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
disk to tape
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
58 lines
10 poke53280,0:poke53281,0:print"[147]"
20 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
30 [153]"peek peek
40 print"[194][160][160][160] change master 64 [194]
50 [153]"peek peek
60 print"[194] written by [194]
70 [153]"peek peek
80 print"[194] stephan senz & burghard heidegger [194]
90 [153]"peek peek
100 print"[194] lade zuerst fastload ! [194]
110 [153]"peek peek
120 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]
130 [153]"
140 print" instruktionen ? (j/n)
150 [161] a$:[139]a$[178]""[167]150
160 [139]a$[179][177]"j"[167] 570
170 [153]"load"
180 [153]"(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenright$
190 print"[194]instruktionen[194]
200 [153]"mid$lenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)
210 print"mit diesem programm koennen sie mehrere"
220 print"gewuenschte prge. von disk auf schnelle"
230 print"cassette format turbo tape (kompatiebel"
240 print"zu extra-64) schreiben."
250 print"es ist z.b. bei umfangreichem programm-"
260 print"tausch oder beim anlegen von kopien zur"
270 print"datensicherung unentberlich."
280 printtab(33)"return[146]"
290 geta$:ifa$=""then290
300 print"[147]"
310 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
320 print"[194]befehlsliste[194]"
330 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
340 print" * damit markieren sie die "
350 print" gewuenschten prge."
360 print" a wenn alle prge. der diskette ko-"
370 print" piert werden sollen."
380 print" w sie erhalten den naechsten teil"
390 print" der directory."
400 printtab(33)"return[146]"
410 geta$:if a$=""then410
420 print"[147]"
430 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
440 print"[194]befehlsliste[194]"
450 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
460 print" s wenn sie die markierung beendet"
470 print" haben."
480 print" n wenn sie eine weitere diskette "
490 print" kopieren wollen."
500 print" x ausgang in's basic."
510 print"bem.: alle befehle muessen in der "
520 print" ersten spalte stehen !"
530 print" nach sys 50000 folgende befehle :"
540 print" _l _s _v von basic aus moeglich"
550 print"disk eingelegt ? return[146]"
560 geta$:if a$=""then560
570 sys4003